function s=bpsk2bin(z)

s=[real(z)>0];
